Type employee    fname as string    lname as string    hired as date    file as stringend type    Sub Main()	dim emp1 as employee, emp2 as employee	emp1.fname = "Jose L."	emp1.lname = "Cuevas"	emp1.file = "hello"	msgbox(emp1.file)	msgbox("emp1: Jose L. Cuevas=" & emp1.fname & " " & emp1.lname)	emp2 = emp1	msgbox(emp2.file)	msgbox("emp2: Jose L. Cuevas=" & emp2.fname & " " & emp2.lname)	emp2.fname = "Joe"	msgbox("emp1.fname=emp2.fname: " & emp1.fname & "=" & emp2.fname)end sub